home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / EventHandlerTest.z / EventHandlerTest
Encoding:
Text File  |  2003-11-18  |  6.9 KB  |  239 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # EventHandlerTest
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26.  
  27. ##########################################################################
  28. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  29. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  30. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  31. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  32. #      Novell, Inc.
  33. ##########################################################################
  34.  
  35.  
  36. #
  37. # This sample shell script demonstrates how event handlers can be added
  38. # and removed.  It also demonstrates how the EH_WIDGET and EH_EVENT
  39. # convenience environment variables can be referenced.
  40. #
  41.  
  42.  
  43. EventHandler1()
  44. {
  45.    echo "EH_WIDGET ="$EH_WIDGET
  46.    echo "EH_EVENT ="$EH_EVENT
  47.    echo "EH_EVENT.TYPE ="${EH_EVENT.TYPE}
  48.    echo "event handler 1 invoked ("$1")"
  49. }
  50.  
  51. EventHandler2()
  52. {
  53.    echo "EH_WIDGET ="$EH_WIDGET
  54.    echo "EH_EVENT ="$EH_EVENT
  55.    echo "EH_EVENT.TYPE ="${EH_EVENT.TYPE}
  56.    echo "event handler 1 invoked ("$1")"
  57. }
  58.  
  59. # PushbuttonCallback: Adds an event handler to the form widget
  60. AddMaskableEventHandler1()
  61. {
  62.    XtAddEventHandler $FORM2 "Button2MotionMask" False \
  63.      "EventHandler1 1"
  64. }
  65.  
  66. # PushbuttonCallback: Adds an event handler to the form widget
  67. AddMaskableEventHandler2()
  68. {
  69.    XtAddEventHandler $FORM2 "ButtonPressMask|ButtonReleaseMask" False \
  70.      "EventHandler1 1"
  71. }
  72.  
  73. # PushbuttonCallback: Adds an event handler to the form widget
  74. AddMaskableEventHandler3()
  75. {
  76.    XtAddEventHandler $FORM2 "Button2MotionMask" False \
  77.      "EventHandler1 2"
  78. }
  79.  
  80. # PushbuttonCallback: Adds an event handler to the form widget
  81. AddNonmaskableEventHandler()
  82. {
  83.    XtAddEventHandler $FORM2 "NoEventMask" True "EventHandler2 1"
  84. }
  85.  
  86. # PushbuttonCallback: Adds an event handler to the form widget.
  87. #                     Should report a bad event mask.
  88. AddBadEventHandler()
  89. {
  90.    XtAddEventHandler $FORM2 "fooMask" False "EventHandler2 1"
  91. }
  92.  
  93. # PushbuttonCallback: Removes an event handler to the form widget
  94. RemoveEventHandler1()
  95. {
  96.    XtRemoveEventHandler $FORM2 "Button2MotionMask" False \
  97.      "EventHandler1 1"
  98. }
  99.  
  100. # PushbuttonCallback: Removes an event handler to the form widget
  101. RemoveEventHandler2()
  102. {
  103.    XtRemoveEventHandler $FORM2 "ButtonPressMask|ButtonReleaseMask" False \
  104.      "EventHandler1 1"
  105. }
  106.  
  107. # PushbuttonCallback: Removes an event handler to the form widget
  108. RemoveEventHandler1and2()
  109. {
  110.    XtRemoveEventHandler $FORM2 "XtAllEvents" True "EventHandler1 1"
  111. }
  112.  
  113.  
  114.  
  115. ######################### Create the Main UI #################################
  116.  
  117. XtInitialize TOPLEVEL eventHandlerTest EventHandlerTest "$0" "$@"
  118.  
  119. XtCreateManagedWidget FORM form XmForm $TOPLEVEL
  120.  
  121. XtCreateManagedWidget FORM2 form2 XmForm $FORM \
  122.     topAttachment:ATTACH_FORM \
  123.     leftAttachment:ATTACH_FORM \
  124.     rightAttachment:ATTACH_FORM
  125. XtSetValues $FORM2 height:150 width:150
  126.  
  127. XtCreateManagedWidget SEP sep XmSeparator $FORM \
  128.     topAttachment:ATTACH_WIDGET \
  129.     topWidget:$FORM2 \
  130.     leftAttachment:ATTACH_FORM \
  131.     rightAttachment:ATTACH_FORM
  132.  
  133. XtCreateManagedWidget PB1 pb XmPushButton $FORM \
  134.     labelString:"Add Maskable Event Handler 1" \
  135.     topAttachment:ATTACH_WIDGET \
  136.     topWidget:$SEP \
  137.     topOffset:10 \
  138.     leftAttachment:ATTACH_POSITION \
  139.     leftPosition:10 \
  140.     rightAttachment:ATTACH_POSITION \
  141.     rightPosition:40
  142. XtAddCallback $PB1 activateCallback AddMaskableEventHandler1
  143.  
  144. XtCreateManagedWidget PB2 pb2 XmPushButton $FORM \
  145.     labelString:"Add Maskable Event Handler 2" \
  146.     topAttachment:ATTACH_WIDGET \
  147.     topWidget:$SEP \
  148.     topOffset:10 \
  149.     leftAttachment:ATTACH_POSITION \
  150.     leftPosition:60 \
  151.     rightAttachment:ATTACH_POSITION \
  152.     rightPosition:90
  153. XtAddCallback $PB2 activateCallback AddMaskableEventHandler2
  154.  
  155. XtCreateManagedWidget PB3 pb3 XmPushButton $FORM \
  156.     labelString:"Add Maskable Event Handler 3" \
  157.     topAttachment:ATTACH_WIDGET \
  158.     topWidget:$PB2 \
  159.     topOffset:10 \
  160.     leftAttachment:ATTACH_POSITION \
  161.     leftPosition:10 \
  162.     rightAttachment:ATTACH_POSITION \
  163.     rightPosition:40 
  164. XtAddCallback $PB3 activateCallback AddMaskableEventHandler3
  165.  
  166. XtCreateManagedWidget PB4 pb4 XmPushButton $FORM \
  167.     labelString:"Add Maskable Event Handler 4" \
  168.     topAttachment:ATTACH_WIDGET \
  169.     topWidget:$PB2 \
  170.     topOffset:10 \
  171.     leftAttachment:ATTACH_POSITION \
  172.     leftPosition:60 \
  173.     rightAttachment:ATTACH_POSITION \
  174.     rightPosition:90
  175. XtAddCallback $PB4 activateCallback AddMaskableEventHandler4
  176. XtSetSensitive $PB4 False
  177.  
  178. XtCreateManagedWidget PB5 pb5 XmPushButton $FORM \
  179.     labelString:"Add non-maskable Event Handler" \
  180.     topAttachment:ATTACH_WIDGET \
  181.     topWidget:$PB4 \
  182.     topOffset:10 \
  183.     leftAttachment:ATTACH_POSITION \
  184.     leftPosition:10 \
  185.     rightAttachment:ATTACH_POSITION \
  186.     rightPosition:40
  187. XtAddCallback $PB5 activateCallback AddNonmaskableEventHandler
  188.  
  189. XtCreateManagedWidget PB6 pb6 XmPushButton $FORM \
  190.     labelString:"Add Bad Event Handler" \
  191.     topAttachment:ATTACH_WIDGET \
  192.     topWidget:$PB4 \
  193.     topOffset:10 \
  194.     leftAttachment:ATTACH_POSITION \
  195.     leftPosition:60 \
  196.     rightAttachment:ATTACH_POSITION \
  197.     rightPosition:90
  198. XtAddCallback $PB6 activateCallback AddBadEventHandler
  199.  
  200. XtCreateManagedWidget PB7 pb7 XmPushButton $FORM \
  201.     labelString:"Remove Maskable Event Handler 1" \
  202.     topAttachment:ATTACH_WIDGET \
  203.     topWidget:$PB6 \
  204.     topOffset:10 \
  205.     leftAttachment:ATTACH_POSITION \
  206.     leftPosition:10 \
  207.     rightAttachment:ATTACH_POSITION \
  208.     rightPosition:40 
  209. XtAddCallback $PB7 activateCallback RemoveEventHandler1
  210.  
  211. XtCreateManagedWidget PB8 pb8 XmPushButton $FORM \
  212.     labelString:"Remove Maskable Event Handler 2" \
  213.     topAttachment:ATTACH_WIDGET \
  214.     topWidget:$PB6 \
  215.     topOffset:10 \
  216.     leftAttachment:ATTACH_POSITION \
  217.     leftPosition:60 \
  218.     rightAttachment:ATTACH_POSITION \
  219.     rightPosition:90
  220. XtAddCallback $PB8 activateCallback RemoveEventHandler2
  221.  
  222. XtCreateManagedWidget PB9 pb9 XmPushButton $FORM \
  223.     labelString:"Remove Maskable Event Handler 1 and 2" \
  224.     topAttachment:ATTACH_WIDGET \
  225.     topWidget:$PB8 \
  226.     topOffset:10 \
  227.     leftAttachment:ATTACH_POSITION \
  228.     leftPosition:10 \
  229.     rightAttachment:ATTACH_POSITION \
  230.     rightPosition:40 \
  231.     bottomAttachment:ATTACH_FORM \
  232.     bottomOffset:10
  233. XtAddCallback $PB9 activateCallback RemoveEventHandler1and2
  234.  
  235.  
  236. XtRealizeWidget $TOPLEVEL
  237.  
  238. XtMainLoop
  239.